object FPesquisaPedidoNotaFiscal: TFPesquisaPedidoNotaFiscal
  Left = 191
  Top = 122
  BorderStyle = bsDialog
  Caption = 'Pesquisa Pedido Nota Fiscal'
  ClientHeight = 409
  ClientWidth = 644
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  OnClose = FormClose
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object LBEmpresa: TLabel
    Left = 5
    Top = 6
    Width = 94
    Height = 20
    Caption = 'LBEmpresa'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label2: TLabel
    Left = 6
    Top = 269
    Width = 71
    Height = 13
    Alignment = taCenter
    Caption = 'Qtd de Itens'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object DBText1: TDBText
    Left = 6
    Top = 285
    Width = 83
    Height = 17
    Alignment = taCenter
    DataField = 'PED_QTD_ITENS'
    DataSource = DSPesquisa
  end
  object LbFormaPagto: TLabel
    Left = 545
    Top = 13
    Width = 5
    Height = 13
    Alignment = taRightJustify
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object SpeedButton1: TSpeedButton
    Left = 616
    Top = 277
    Width = 23
    Height = 19
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000130B0000130B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      33033333333333333F7F3333333333333000333333333333F777333333333333
      000333333333333F777333333333333000333333333333F77733333333333300
      033333333FFF3F777333333700073B703333333F7773F77733333307777700B3
      333333773337777333333078F8F87033333337F3333337F33333778F8F8F8773
      333337333333373F333307F8F8F8F70333337F33FFFFF37F3333078999998703
      33337F377777337F333307F8F8F8F703333373F3333333733333778F8F8F8773
      333337F3333337F333333078F8F870333333373FF333F7333333330777770333
      333333773FF77333333333370007333333333333777333333333}
    NumGlyphs = 2
  end
  object Label11: TLabel
    Left = 4
    Top = 219
    Width = 86
    Height = 13
    Caption = 'Tipo de Opera'#231#227'o'
  end
  object BitFechar: TBitBtn
    Left = 560
    Top = 6
    Width = 79
    Height = 25
    Caption = '&Fechar'
    TabOrder = 0
    OnClick = BitFecharClick
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000120B0000120B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00330000000000
      03333377777777777F333301111111110333337F333333337F33330111111111
      0333337F333333337F333301111111110333337F333333337F33330111111111
      0333337F333333337F333301111111110333337F333333337F33330111111111
      0333337F3333333F7F333301111111B10333337F333333737F33330111111111
      0333337F333333337F333301111111110333337F33FFFFF37F3333011EEEEE11
      0333337F377777F37F3333011EEEEE110333337F37FFF7F37F3333011EEEEE11
      0333337F377777337F333301111111110333337F333333337F33330111111111
      0333337FFFFFFFFF7F3333000000000003333377777777777333}
    NumGlyphs = 2
  end
  object GroupBox2: TGroupBox
    Left = 93
    Top = 265
    Width = 442
    Height = 143
    Caption = '  Itens do Pedido  '
    Ctl3D = False
    ParentCtl3D = False
    TabOrder = 1
    object DBGrid2: TDBGrid
      Left = 7
      Top = 16
      Width = 425
      Height = 120
      DataSource = DSItens
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Times New Roman'
      Font.Style = []
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      ParentFont = False
      TabOrder = 0
      TitleFont.Charset = ANSI_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'Times New Roman'
      TitleFont.Style = [fsBold]
      Columns = <
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'ITENSPED_CODIGO'
          Title.Alignment = taCenter
          Title.Caption = 'Chave'
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'ITENSPED_QUANTIDADE'
          Title.Alignment = taCenter
          Title.Caption = 'Qtd'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'ITENSPED_VALORUNIT'
          Title.Alignment = taCenter
          Title.Caption = 'Valor Unit'
          Width = 70
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'ITENSPED_VALORTOTAL'
          Title.Alignment = taCenter
          Title.Caption = 'Valor'
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'DATA_LOGISTICA'
          Title.Alignment = taCenter
          Title.Caption = 'Data Atendimento'
          Width = 125
          Visible = True
        end>
    end
  end
  object DBGrid1: TDBGrid
    Left = 4
    Top = 34
    Width = 636
    Height = 157
    DataSource = DSPesquisa
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Times New Roman'
    Font.Style = []
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
    ParentFont = False
    TabOrder = 2
    TitleFont.Charset = ANSI_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'Times New Roman'
    TitleFont.Style = [fsBold]
    OnDblClick = DBGrid1DblClick
    OnTitleClick = DBGrid1TitleClick
    Columns = <
      item
        Alignment = taCenter
        Expanded = False
        FieldName = 'CODIGO'
        Title.Alignment = taCenter
        Title.Caption = 'N'#176' Pedido'
        Width = 55
        Visible = True
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = 'PED_DATA'
        Title.Alignment = taCenter
        Title.Caption = 'Data'
        Width = 80
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'CLIENTE'
        Title.Alignment = taCenter
        Title.Caption = 'Cliente'
        Width = 280
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'CIDADE'
        Title.Alignment = taCenter
        Title.Caption = 'Cidade'
        Width = 120
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'VALOR'
        Title.Alignment = taCenter
        Title.Caption = 'Valor'
        Visible = True
      end>
  end
  object BitSelecionar: TBitBtn
    Left = 543
    Top = 193
    Width = 96
    Height = 25
    Caption = '&Selecionar'
    TabOrder = 3
    OnClick = BitSelecionarClick
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000120B0000120B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      33333FF3333333333333447333333333333377FFF33333333333744473333333
      333337773FF3333333333444447333333333373F773FF3333333334444447333
      33333373F3773FF3333333744444447333333337F333773FF333333444444444
      733333373F3333773FF333334444444444733FFF7FFFFFFF77FF999999999999
      999977777777777733773333CCCCCCCCCC3333337333333F7733333CCCCCCCCC
      33333337F3333F773333333CCCCCCC3333333337333F7733333333CCCCCC3333
      333333733F77333333333CCCCC333333333337FF7733333333333CCC33333333
      33333777333333333333CC333333333333337733333333333333}
    NumGlyphs = 2
  end
  object EdPesquisa: TEdit
    Left = 153
    Top = 193
    Width = 381
    Height = 26
    CharCase = ecUpperCase
    Ctl3D = False
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentCtl3D = False
    ParentFont = False
    TabOrder = 4
    OnChange = EdPesquisaChange
  end
  object GroupBox1: TGroupBox
    Left = 4
    Top = 188
    Width = 148
    Height = 31
    Caption = '  Tipo de Pequisa  '
    Ctl3D = False
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentCtl3D = False
    ParentFont = False
    TabOrder = 5
    object RadioNPedido: TRadioButton
      Left = 10
      Top = 12
      Width = 72
      Height = 17
      Caption = 'N'#176' Pedido'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      OnClick = RadioNPedidoClick
    end
    object RadioCliente: TRadioButton
      Left = 90
      Top = 12
      Width = 56
      Height = 17
      Caption = 'Cliente'
      Checked = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      TabStop = True
      OnClick = RadioClienteClick
    end
  end
  object DBNavigator1: TDBNavigator
    Left = 543
    Top = 271
    Width = 96
    Height = 25
    DataSource = DSItens
    VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast]
    TabOrder = 6
  end
  object Panel1: TPanel
    Left = 0
    Top = 253
    Width = 647
    Height = 10
    Color = clHighlight
    TabOrder = 7
  end
  object GroupBox3: TGroupBox
    Left = 289
    Top = -1
    Width = 169
    Height = 34
    Caption = '  Forma de Pagamento  '
    Ctl3D = False
    ParentCtl3D = False
    TabOrder = 8
    object CheckAVista: TCheckBox
      Left = 7
      Top = 14
      Width = 66
      Height = 17
      Caption = 'A Vista'
      TabOrder = 0
      OnClick = CheckAVistaClick
    end
    object CheckFaturado: TCheckBox
      Left = 80
      Top = 14
      Width = 81
      Height = 17
      Caption = 'Faturado'
      TabOrder = 1
      OnClick = CheckFaturadoClick
    end
  end
  object EDPequisaItem: TEdit
    Left = 542
    Top = 300
    Width = 74
    Height = 19
    Ctl3D = False
    ParentCtl3D = False
    TabOrder = 9
    OnChange = EDPequisaItemChange
  end
  object DBLCBTipoVenda: TDBLookupComboBox
    Left = 4
    Top = 233
    Width = 635
    Height = 19
    Ctl3D = False
    DataField = 'NF_TIPOVENDA'
    KeyField = 'TIPVEND_CODIGO'
    ListField = 'cod_descricao'
    ListSource = DSTipoVenda
    ParentCtl3D = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 10
  end
  object QPesquisa: TQuery
    DatabaseName = 'base'
    SQL.Strings = (
      'SELECT '
      '  PEDIDOVENDA.PED_CODIGO AS CODIGO,'
      '  CLIENTE.CLI_RAZAO AS CLIENTE,'
      '  CLIENTE.CLI_CIDADEPEDIDO AS CIDADE,'
      '  PEDIDOVENDA.PED_VALOR AS VALOR,'
      '  PEDIDOVENDA.PED_DATA,'
      '  PEDIDOVENDA.CODIGO_EMPRESA,'
      '  PEDIDOVENDA.FORMA_PAGAMENTO_LOGISTICA,'
      '  PEDIDOVENDA.PED_SITUACAO,'
      '  PEDIDOVENDA.PED_QTD_ITENS'
      'FROM'
      ' CLIENTE'
      
        ' INNER JOIN PEDIDOVENDA ON (CLIENTE.CLI_CODIGO=PEDIDOVENDA.PED_C' +
        'LIENTE)'
      
        'WHERE  PEDIDOVENDA.PED_SITUACAO = 0 AND PEDIDOVENDA.CODIGO_EMPRE' +
        'SA =')
    Left = 576
    Top = 336
    object QPesquisaCODIGO: TIntegerField
      FieldName = 'CODIGO'
      Origin = 'GESTAO.PEDIDOVENDA.PED_CODIGO'
    end
    object QPesquisaCLIENTE: TStringField
      FieldName = 'CLIENTE'
      Origin = 'GESTAO.CLIENTE.CLI_RAZAO'
      Size = 60
    end
    object QPesquisaCIDADE: TStringField
      FieldName = 'CIDADE'
      Origin = 'GESTAO.CLIENTE.CLI_CIDADEPEDIDO'
      Size = 60
    end
    object QPesquisaVALOR: TFloatField
      FieldName = 'VALOR'
      Origin = 'GESTAO.PEDIDOVENDA.PED_VALOR'
      DisplayFormat = '0.,00'
    end
    object QPesquisaPED_DATA: TDateTimeField
      FieldName = 'PED_DATA'
      Origin = 'GESTAO.PEDIDOVENDA.PED_DATA'
      DisplayFormat = 'dd/mm/yyyy'
    end
    object QPesquisaCODIGO_EMPRESA: TIntegerField
      FieldName = 'CODIGO_EMPRESA'
      Origin = 'GESTAO.PEDIDOVENDA.CODIGO_EMPRESA'
    end
    object QPesquisaFORMA_PAGAMENTO_LOGISTICA: TIntegerField
      FieldName = 'FORMA_PAGAMENTO_LOGISTICA'
      Origin = 'GESTAO.PEDIDOVENDA.FORMA_PAGAMENTO_LOGISTICA'
    end
    object QPesquisaPED_SITUACAO: TSmallintField
      FieldName = 'PED_SITUACAO'
      Origin = 'BASE.PEDIDOVENDA.PED_SITUACAO'
    end
    object QPesquisaPED_QTD_ITENS: TIntegerField
      FieldName = 'PED_QTD_ITENS'
      Origin = 'BASE.PEDIDOVENDA.PED_QTD_ITENS'
    end
  end
  object DSPesquisa: TDataSource
    DataSet = QPesquisa
    OnDataChange = DSPesquisaDataChange
    Left = 544
    Top = 351
  end
  object QItens: TQuery
    DatabaseName = 'base'
    DataSource = DSPesquisa
    SQL.Strings = (
      
        'Select * from itenspedidovenda where ITENSPED_PEDIDO = :CODIGO o' +
        'rder by data_logistica')
    Left = 616
    Top = 328
    ParamData = <
      item
        DataType = ftInteger
        Name = 'CODIGO'
        ParamType = ptUnknown
        Size = 4
      end>
    object QItensITENSPED_CODIGO: TIntegerField
      FieldName = 'ITENSPED_CODIGO'
      Origin = 'BASE.ITENSPEDIDOVENDA.ITENSPED_CODIGO'
    end
    object QItensITENSPED_PEDIDO: TIntegerField
      FieldName = 'ITENSPED_PEDIDO'
      Origin = 'BASE.ITENSPEDIDOVENDA.ITENSPED_PEDIDO'
    end
    object QItensITENSPED_PRODUTO: TIntegerField
      FieldName = 'ITENSPED_PRODUTO'
      Origin = 'BASE.ITENSPEDIDOVENDA.ITENSPED_PRODUTO'
    end
    object QItensITENSPED_PRODUTOCLIENTE: TStringField
      FieldName = 'ITENSPED_PRODUTOCLIENTE'
      Origin = 'BASE.ITENSPEDIDOVENDA.ITENSPED_PRODUTOCLIENTE'
      Size = 15
    end
    object QItensITENSPED_DESCRICAOSERVICO: TStringField
      FieldName = 'ITENSPED_DESCRICAOSERVICO'
      Origin = 'BASE.ITENSPEDIDOVENDA.ITENSPED_DESCRICAOSERVICO'
      Size = 200
    end
    object QItensITENSPED_LOCAL: TIntegerField
      FieldName = 'ITENSPED_LOCAL'
      Origin = 'BASE.ITENSPEDIDOVENDA.ITENSPED_LOCAL'
    end
    object QItensITENSPED_QUANTIDADE: TFloatField
      FieldName = 'ITENSPED_QUANTIDADE'
      Origin = 'BASE.ITENSPEDIDOVENDA.ITENSPED_QUANTIDADE'
    end
    object QItensITENSPED_QUANTIDADEATEND: TFloatField
      FieldName = 'ITENSPED_QUANTIDADEATEND'
      Origin = 'BASE.ITENSPEDIDOVENDA.ITENSPED_QUANTIDADEATEND'
    end
    object QItensITENSPED_DATAENTREGA: TDateTimeField
      FieldName = 'ITENSPED_DATAENTREGA'
      Origin = 'BASE.ITENSPEDIDOVENDA.ITENSPED_DATAENTREGA'
    end
    object QItensITENSPED_VALORUNIT: TFloatField
      FieldName = 'ITENSPED_VALORUNIT'
      Origin = 'BASE.ITENSPEDIDOVENDA.ITENSPED_VALORUNIT'
      DisplayFormat = '0.,00'
    end
    object QItensITENSPED_VALORTOTAL: TFloatField
      FieldName = 'ITENSPED_VALORTOTAL'
      Origin = 'BASE.ITENSPEDIDOVENDA.ITENSPED_VALORTOTAL'
      DisplayFormat = '0.,00'
      EditFormat = '0.,00'
    end
    object QItensITENSPED_SITUACAO: TSmallintField
      FieldName = 'ITENSPED_SITUACAO'
      Origin = 'BASE.ITENSPEDIDOVENDA.ITENSPED_SITUACAO'
    end
    object QItensDATA_LOGISTICA: TDateTimeField
      FieldName = 'DATA_LOGISTICA'
      Origin = 'BASE.ITENSPEDIDOVENDA.DATA_LOGISTICA'
      DisplayFormat = 'dd/mm/yyyy'
    end
    object QItensVALOR_LOGISTICA: TFloatField
      FieldName = 'VALOR_LOGISTICA'
      Origin = 'BASE.ITENSPEDIDOVENDA.VALOR_LOGISTICA'
    end
    object QItensNUMERO_BA_LOGISTICA: TStringField
      FieldName = 'NUMERO_BA_LOGISTICA'
      Origin = 'BASE.ITENSPEDIDOVENDA.NUMERO_BA_LOGISTICA'
    end
    object QItensUSUARIO_CANCELAMENTO_LOGISTICA: TStringField
      FieldName = 'USUARIO_CANCELAMENTO_LOGISTICA'
      Origin = 'BASE.ITENSPEDIDOVENDA.USUARIO_CANCELAMENTO_LOGISTICA'
      Size = 10
    end
    object QItensMOTIVO_CANCELAMENTO_LOGISTICA: TStringField
      FieldName = 'MOTIVO_CANCELAMENTO_LOGISTICA'
      Origin = 'BASE.ITENSPEDIDOVENDA.MOTIVO_CANCELAMENTO_LOGISTICA'
      Size = 80
    end
  end
  object DSItens: TDataSource
    DataSet = QItens
    Left = 584
    Top = 360
  end
  object DSTipoVenda: TDataSource
    DataSet = FVendaNotaFiscal.QTipoVenda
    Left = 312
    Top = 248
  end
end
